Software of the Month Club (Business) 1997 July/Software of the Month Club - Business (Volume 239) (July 1997).iso/pc/code/e.dxr/00008_#E03 - driver's side window.ls

Text File | 1996-02-15 | 1.6 KB | 36 lines

global gEnvironmentSound, gOBJECTSE, gObjects, gStates, NULLrect, gHotRects, gCursorlist, gWorld, sQTSPRITE, sQTCharSprite

on doWindowLookRight
  set initList to []
  set killList to [#carLookLeft]
  changeHotSpots(initList, killList, #false)
  set runoutCount to getaProp(getaProp(gObjects, #CarGasGauge), #runoutCount)
  MakeDynamic(#GasManQT, #droveOrTowed, #towed)
  set the movieRate of sprite sQTCharSprite to 0
  updateStage()
  MakeDynamic(#carEmerPar, #State, #off)
  set towLength to getaProp(getaProp(gObjects, #CarGasGauge), #towLength)
  set carMapObj to getaProp(gObjects, #carMap)
  set curScale to getaProp(carMapObj, #curScale)
  set curZone to getaProp(carMapObj, #curZone)
  set curZone to integer(curZone - (towLength * 25 / 25 * power(5, 3 - curScale)))
  MakeDynamic(#carMap, #curZone, curZone)
  set keyFrme1 to value("#E" & curScale & towLength)
  set newDashCast to the number of cast string("EG" & curScale & ".pct")
  set keyFrme2 to value("#EG" & curScale)
  set initList to [#carLookRight]
  set killList to [#carLookLeft]
  changeHotSpots(initList, killList, #false)
  if not (the shiftDown) then
    set the locH of sprite getaProp(getaProp(gObjects, #TowCarDashView), #SpriteNum) to 280
    set the locH of sprite getaProp(getaProp(gObjects, #TowCarDashPict), #SpriteNum) to 280
  end if
  set dashObj to getaProp(gObjects, #carDashView)
  setaProp(getaProp(dashObj, #cast), #UP, newDashCast)
  MakeDynamic(#carDashView, #cast, getaProp(getaProp(gObjects, #carDashView), #cast))
  MakeDynamic(#CarGasGauge, #towLength, 0)
  updateStage()
  genExitKFE(keyFrme1, keyFrme2, "Tow")
  CursorandUpdate()
end